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MODULE copyspecs ( ! pen leyleres igput and output specifications for COPY utility 
LANGUAGE et S88 ), 
ENT = 'VO04~ 0' 


BEGIN 


' 
APRA P PEPE SPSS STS T TTT TTT TTT TIT T IIIT CCITT TTT itt Titi itiirrirrrerrrererrrre 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 
* 
: | 
® 
4 * | 
;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!* TRANSFERRED. * 
. * ' 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT + | 
!® CORPORATION. * 
*® 
| 
® 
® 
* 
& 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FUN (OVW DNAUE WN QO ODNAUE WN HOOD ONOUSWNODOONOULWH = 
MEN OO ODNAUES WN OO ODNAUESWN OC OONOULS WN ODOT WN— 


Be eRe erent 3 3 ae 
OO kk a kk kd ka ll a a ad dd dd dd dd I I IOOOO 
Eo 


0 } 
028 | is | 
0 i eeeeeenenenerereeeeeeeeenentenetetererereeeeerereeeeeeeneeeeeeeeeneeeeeeens | 
03 '+¢ 
o3 FACILITY: COPY Command 
05 ; ABSTRACT: 
03: i This module obtains input and output specifications from the CLi and opens 
Se the associated files. 
. | 
rt ENVIRONMENT: 
004 i VAX/VMS operating system, unprivileged user mode utility, 
004 : operates at non-AST level. 
004 : 
04 —_ 
S04 ‘++ 
004 ! 
rtf poe : AUTHOR: Carol Peters, CREATION DATE: 14 April 1978 14:17 | 
49 0949 i Modified by: 
51 0051 1 | v03-011 TSk0010 Tamar Krichevsky 8-Hay-1984 
26 Bpe§ ! Rearrange the calls to CLISGET VALUE and LIBSFIND FILE, for 
5 05 ! input filename processing. This will fix the problem of 
4 054 ! COPY @.8,8.8,8.8,8.a NL: copying every other file, instead of 
? 055 every file. | 
57 0087 i v03-010 TSK0009 Tamar Krichevsky 20-Apr-1984 
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y04~008 4 93:42:33 JCOPYSPE 0 
. Before the input file is opened, clear the longest record 
Length field oh the tn ut ile's file header XAS. This will 
insure that the LRL value will be correct for record oriented 
devices. RMS does not clear this field if it is inappropriate. 
As a result, the LRL could be carried from one file to another. 
For gxenle. given the command -- COPY foo.txt,SYSSINPUT a.a -- 
SYSSINPUT inherited the LRL form foo.txt. (Not kosher!) 


v03-009 TSkK0008 Tamar Erjcheveky 28-Mar-1984 
Fix IF statement in COPYSOPN_OUTFIL which sets up fhe 
default name string as "';*"'.” It was broken by TSK007. 


v03-008 TSK0007 Tamar Krichevsky 22-Mar-1984 
Convert input file bere ine one ——t to LIBSFIND_FILE. 
Place the check for WILD_OUTPUT before the potential reparse 
of the output file. RMS changed how it set the bits in the 
NAMSL_FNB field. 


v03-007 TSK0006 Tamar Krichevsky 16-Feb-1984 
Copy the input and output file names form the command Line 
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into the appropriate buffers. ned were gesting lost and 
some error messages were being displayed Like so: 
“Error opening as input" 


Also add in check to see if the input file's record format 
is VFC and the fixed control region size is zero. The SOS 
editor created files like this. It knew that the smallest 
fixed header size was two bytes; so it assumed 2 when it 
saw 0. RMS compenstated for this by setting the size to 
two bytes. Unfortunately, the incompatible attributes 
comparison would fail because the input file's HSZ field in 
the XABFHC was zero, but the output file's HSZ was two. 
When COPY encounters such an input file, it will change the 
HSZ field so two. 


v03-006 TSK0005 _ Tamar Krichevsky 3-0c t-1983 
Move the SDISPLAY, which was added in v03-005, to after the 
the check for a successful file SCREATE or SOPEN. Otherwise, 
a extra message is issued when the file can not be accessed 
fur the SDISPLAY. 


v03-005 LM?0150 1. Mark Pilant 9-Sep-1983 11:19 
Adc a S$DISPLAY to COPYSOPN_OUTFIL so that the protection 
of the created file may be obtained. 


V03-004 TSK0V04 _ Tamar Sr tehovely 8-Aug-1983 
Fix ASCVIO during append operations. Output file*’s XABPRO 
should not be removed from XAB chain until file is closed. 


v03-003 TSK0004 Tamar pricbeveky S-hug- 1983 
aoes te COPYSOPN_OUTFILE, SETUP TXAB and APPLY_OUT_QUAL so 
that file protest on and revision inforamtion i§ not propogated 
to the output file from the input file. Fix bug which clears 
the expiration date when the output device is mage tape. Fix 
pug, 18, ZPROTECT ION qualifier so that unspecified fields are 
eft alone. 
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v03-002 TSK0003 Tamar Krichevsky 4-Feb-1982 
Change over to the new CLI. Move external declarations from 
COPY.REQ into this module. 


v03-001 TSK0002 Tamar Ericheveky 4-Feb-1982 
Copy the buckets size from the input FAB in the output XAB to 
insure that og file is greased with the correct bucket size. 
When a file is created, if there are any allocation XABs, the 
bucket size in the FAB is ignored. Therefore, if the input file 
has several areas, and area 0 does not have largest BKZ, something 
other than the Bi in the first (and only, in COPY'’s case) XABALL 
must be used. The largest bucket size is kept in the input file's 
FAB, teeeneeeeeeeerere NOTE: This works only if the ISAM files (the 
worst offenders) are copied block mode. IF FOR ANY REASON ISAM FILES 
or chimes USING RECORD MODE IN THE FUTURE, THIS PROCEDURE WILL HAVE TO 


x00025 TSK0001 Tamar Krichevsky 5-Feb-1982 
eo aot th Buffer Count (GBC) transferred from input FAB to 
utou . 


x00024 KRM0038 Karl Malik 12-Jan-1982 
Warn the user (in COPYSOPN_OUTFIL) if the output file 
was forced to stream format ( in a network copy to 
a 10,20 or RT system ). 


x00023 KRM0035 Karl Malik 31-Dec-1981 
Check for network quoted string in single output filespec 
& if found, do not force multiple output files. 


x00022 wMc0030 Wayne Cardoza 15-Dec-1981 
Disallow output directory wildcards remaining after the output 
file parse with the related input file. 


x00021 wWMC0021 Wayne Cardoza 8-Dec-1981 
Set no_output_spec if only directory is wild and no explicit 
filename components. 


x00020 KFHOO01 Ken Henderson 28-Sep-1981 
Expiration and Backup dates are not copied from input file, 
but instead are defaulted. 


x00019 wWMC0001 Wayne Cardoza 22-Jul-1981 
Explicit protection sees st icatton should not cause old dates 
to be preserved if a file spec is also present. 


x00018 SPF0001 $- Forgey 
Allow wildcard directories in ou 
go along with RMS now handling “’ 


we 
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27-Jan-1981 
tput file specifications to 
sticky’ directories. 


JAK0017 be Krycke 18-Sep-1980 
Alter the x00006 spec al check for network access in setting up 
phe cutout Allocation XAB (i.e., gat ALQ and DEQ values from the 
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x00016 TMHOO15 Tim Halvorsen 24-Mar-1980 
Force creation of a new file (creation date, owner, prot) 
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if the output file specification is explicit to maintain 

compatibility with release 1 behavior. This involves changing 

the previous update to remove remove ponere.Fet 00s if 

explicit output filespec as long as /PROT was not specified 

= a a specified, xabpro must not be removed to allow it 
w ‘ 


X00015 TMHO014 Tim Halvorsen 19-Mar-1980 
Do not remove output XABPRO,RDT,DAT blocks if concat_follows 
flag is set because we were only trying to prevent changing 
characteristics on existing files == -oncatenation always 
produces a new file. Also, inhibit wildcard directories on 

output file specifications. 


— 
~ 
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X00014 TMHOO13 Tim Halvorsen 17-Mar-1980 
Issue ENDPRM2 call at the same time as ENDPRM1 call 
to eliminate problems with parameter ordering (in MCR, 


the parameters appear in reverse order). 


x00013 JAKO0003 J. Krycka ‘14-Jan-1980 
Undo X00005 change so that COPY will be able to use block I/0 
to copy relative and indexed files over the network. 


x00012 TMHOO12 T. Halvorsen 29-Dec-1979 
Remove XABPRO on appends since ghanging both owner or 
protection is prohibited (see x00010) 


X00011 TMHOO11 T. Halvorsen 15-Nov-1979 
Call CLI back with ENDPRM2 after output filespec is 
obtained to signal any unprocessed qualifiers. 


X00010 TMHO010 T. Halvorsen 13-Nov-1979 
Zero the owner UIC field of the XABPRO on appends since 
changing the owner UIC for an existing file is prohibited. 


x00009 TMHO009 T. Halvorsen 24-0¢ t-1979 
Test for output spec of only an explicit nodename 
so that the filename is defaulted correctly. 
Fix relative volume placement control to be hard (issue an 
error if the file cannot completely be placed on the volume). 


x00008 T. Halvorsen 25-Jul-1979 
Add relative volume placement control. 
Fix message to indicate cont iquous~bestatry is being tried 
when there is not enough contigous space rather than issuing 
an error message. 


x00007 T. Halvorsen 14-Jul-1979 / 
Fix erqotes copying ISAM files after another file (B10 
was left on from previous file). 


x00006 JAK0002 de Rrycka 16-Mar-1978 14:00 
To support copy of files over the network, get ALQ and DEQ 
values from input XABALL if NET bit is set. 


x00005 JAK0001 J. Kr 16-Mar-1978 14:00 
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BRO bit in output FAB if NET bit is set. 
x00004 CHP20339 C. Peters 25-Oct-1978 14:10 
In COPYSGET_INFILE, zero ESL and RSL fields to avoid 
reporting wrong file specification on error. 


x00003 CHP19547 C. Peters 7-0ct-1978 14:27 
Don't make version numbers sticky in an APPEND command. 
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40 3 : 
41 : Table of Contents 
rk FORWARD ROUTINE 
44 copy$get_infile, ! Obtains the input file specification 
45 copy$opn_infile, ! Opens the current input file 
4 copy$get_outfil, ! Obtains the output file specification 
4 4 copy$Sopn_outfil, ! Opens the current output file 
48 setup_extend, | ! Sets up an output file to be extended. 
9 setup_outxab : NOVALUE, ' Sets up XAB fields for an output file. 
51 ¢ apply_out_qual : NOVALUE; ! Sets output fields depending on file qualifiers. 
5 : 
! Include files 
2 5 : 
LIBRARY ‘SYSSLIBRARY:STARLET.L32'; ! VAX/VMS system definitions 
: REQUIRE ‘SRC$:COPYMSG.REQ'; ! Definition of macros to SIGNAL a message 
3 : 
: Macros 


! Check to see if the ny or local qualifier flag is set without the 

: local negation flag being set. 

qualifier_active( global qual, local qual, Local ty negated d= 
(IF (Zglobal_qual ANB NOT .localTy_negated) 0 


-local_qual 
THEN true 
ELSE false )% 


4 
External variables 


EXTERNAL 


c 
| 
| 

copy$cli_status : ap try | 
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copy$sem_status : $BBLOCK 
curr_allocation_value, 
81 curr_extension_value, 
Hd curr_protection_or, 
Si curr_protection_and, 
curr_file_max_value, 
curr_volume_value, 
85 l l 
Ha 366 infile_cli_desc : SBBLOCK(I, ' Descriptor for input file name returned by CLI 
88 $07 in_name_desc : VECTOR, ! Descriptor of input file specification 
44 oe out _namé_desc : VECTOR ! descriptor for output file specification 
91 390 ‘ 
4 34 REQUIRE . 
4 355 *SRC$:COPY.REQ’ ! Field definitions for COPYSCLI_STATUS and COPYSSE 
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; SPRINT: File: VMSMAC.B32, Version V04-000, Edit 1, WWwC, 09-JAN-1978 


ee 
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; 295 1 

: 4 : 1 EXTERWA, ROUTINE 

; 2 1 cli get value : addressing_mode( general ), 

: 298 7 7 copy$get_global_qual, ! Retrieves command level qualifiers 

3; a § 1 copy$get_local_qual, ! Retrieves local qualifiers é 
; 300 0 1 copy$check_file_for_match, ! See if input file matches command Line criteria 
; 301 0 1 copy$calc_alq, ! Calculates a file extension quantity. 

3 o¢ 0835 1 copy$close_outf, ! Closes an output file 

; wD 8 § 1 copy$inopn_err, ! Handles an input SOPEN error 

; 304 8 1 copy$log_msg, ' Logs a message about COPY's activities 

; 305 0838 1 copy$oclose_err, ! Handles an output file close error. 

3 08 +84 1 copy$outopn_err, ! Handles an output SOPEN error 

; 30 Q 1 copy$find_input_file, ! Finds and parses an input file specification 

; 508 0841 1 copy$semantics; ! Determines semantics of a comman 
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GLOBAL ROUTINE copy$get_infile (input_fab, input_nam, inpu 
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rt 
! Functional description: 


This routine gets an input file specification and all 
related qualifiers from the Command Language Interpreter. Then 
the file specification is parsed. 


If a wildcard specification is still being processed, or if 

no more input specifications are available, this routine just 

returns successfully. 

A series of flags are set if certain conditions obtain. These 

conditions describe the current List of files that are candidates 

for concatenation. The flags are set if the file specification 

contains input wildcards, an explicit wildcard version number, or an explicit version number. 

Another flag applies only to this specification and says whether it contains any wildcards. 
Calling sequence: 

copy$get_infile (input_fab.ra.v, input_nam.ra.v, input_xaball.ra.v) 


Input parameters: 


input_fab = the FAB to use for this input specification 
input_nam - the NAM to use for this input specification. 
input _xaball - the XABALL to use for this input specification 


Implicit inputs: 


wildcard_active - a bit in COPYSCLI_STATUS that says that we are 
already processing an input wildcard. 


Output parameters: 
none 
Implicit outputs: 


The fields of the FAB and the NAM block are filled in according 
to the CLI call and the SPARSE function call. 


The RSL field of the dummy_nam_blk is filled in by the routine COPYSFIND_INPUT_FILE. This is later 
used in parsing the name additional input files or output files. 


A bit in COPYSCLI_STATUS may be set: 


multiple_input <- more than one input file specification in the command 
wildcard_active - if a wildcard is present 


Some bits in COPYSSEM_STATUS may be set: 


wild_input - wildcard fields exist : 
wild_inp_ver - a wildcard version number exists 
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3; 367 99 1! exp_inp_ver = an explicit version number exists 
; 368 $00 1! 
; 369 901 1 ! Routine value: 
: 370 O06 1} 
3 6ST) 0905 1! OK - success . 
3; of 4 , 3 NO_MORE FILES = success, no more input specifications 
, oR 90> 7} NO_FILE - failure 
: ore 0906 1! 
3 ire 0907 1! Side effects: 
; 376 0908 1! 
; ae 0909 1! none 
; 378 8319 1! 
: 379 911 1 I= 
; 380 at 1 
; «4381 0915 2 BEGIN 
; $66 0914 § 
; 38 0915 LOCAL 
; «384 0916 rtn_status; ! Retrun status from external calls 
3 389 0917 
; 386 0918 MAP 
3 6Ser 0919 input_fab : REF BLOCK C, BYTEI, ! FAB to use with input file 
; 388 0920 2 input_nam : REF BLOCK C, BYTEIJ, ! NAM to use with input file 
; 389 0921 input_xaball : REF BLOCK C, BYTE); ! XABALL to use with input file 
; 390 $058 
; 391 09 
; 392 0924 
: 393 0925 ! Return if a wildcard file specification is currently “— processed or the 
: 394 0926 : last input file name has been retrieved from the command line. Otherwise, 
3 $32 3434 set the flag which indicates that more input files have been found. 
3 S397 4494 2 P , : 
3; 398 0930 2 IF .wildcard_active ! If a wildcard specification is currently 
3; 399 0931 2 ! being processed, then just return to caller. 
; 400 $338 2 RETURN ok; 
3; 401 0933 2 
; 40 0934 2 ’ 
; 40 0935 2 ! Reinitialize the RSL and ESL fields of the NAM block so that a parsing 
3; 404 o3 38 2 ! error does not report an error in the previous file processed. 
> 405 0937 2 : 
; 406 0938 3 
: 407 0939 input_nam Cnam$b_esl] = 0: ! Expanded string length of zero. 
; 408 0940 input_nam Cnam$b_rsl) = 0; ! Resultant string length of zero. 
; 409 0941 
; 410 Bae 
> 411 94 : 
3 218 0944 ! Call LIBSFIND_FILE to parse the input file ores TF cet ten. This resolves 
3; «41 0945 ' logical names and determines if there are wildcards present, or explicit 
: 414 0946 ! named fields present. 
: «415 0947 : 
; 616 948 Nal : 
; 417 949 If NOT (rtn_status = copy$find_input_file ( infile_cli_desc )) 
; 418 0950 THEN 
3: «419 951 IF .rtn status NEQ RMS$_NMF 
; 420 926 
3; 421 95 RETURN .rtn_status; 
; 4 ; b3ee 
; 4 955 : 
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> 424 0956 ! Initialize the input file FAB. 
. oe: oo 
: 427 p $986 SFAB_INIT ( ! Setup the input file FAB as follows: 
; 428 P 844 FAB = .input fab, q FAB address is the input parameter 
; 429 P 096 FAC = <GeT. RO>, : Input file, mixed block and record acce 
; 430 P 4444 SHR = GET, ¢ Allow others to read the input file 
: $3) P 096 DNA = 8. ; No default file specification 
; 4 P 0964 RTV = : Use default retrieval window size 
3 233 P 0965 RAT = CR : alba 6 control in case unit record input 
> 434 P 0966 FOP = <S$Q0,NAM>, ! Sequential 1/0 only, open by name block 
; 435 P 0967 NAM = .input_nam, : NAM block address 
; 436 968 XAB = .input_xaball); : XABALL block address. 
2 Cee 
: 439 0971 i If there were no more files for the current inout specification, get the next 
; re bap § one from the command Line. 
> 44 0974 2° IF .rtn status EQL RMS$_NMF 
> 44 0975 THEN 
Bt mes 
: rr! 3464 ; IF NOT (rtn status = CLISGET_VALUE( SDESCRIPTOR('infile'), infile_cli_desc)) 
; | 
: rer | 3454 ; RETURN no_more_files; | 
; 430 098 3 ! Get the qualifiers for this input file. 
; 432 0984 3 COPYSGET_LOCAL_QUAL(); 
; $23 $443 3 Check to see if more than one input file has been given. 
: rt 3494 3 if ertn status NEQ SS$_NORMAL 
; 458 0990 3 multiple_input = TRUE; | 
ee 
> 461 099 : i Reinitialize the RSL and ESL fields of the NAM block so that a parsing 
: 462 0994 ' error does not report an error in the previous file processed. 
; ret bad ! 
: $b_esl] = 0; ! Expanded string length of zero. 
; 166 $998 ee foe nam$borsi] = 0; ! Resultant str ine Length of zero. 
3: 467 0999 
i: ee , 
; 470 1996 i Call LIBSFIND_FILE to parse the input file specification. This resolves 
3; 471 100 ! Logical names and determines if there are wildcards present, or explicit 
3 467 1004 ! named fields present. 
MES , 
: $22 1907 4 2 wor (rtn_status = copy$find_input_file ( infile_cli_desc )) 
5; (477 1009 RETURN .rtn_stetus; 
3; 478 1010 ND; 
3; 479 Aoi) 
; 480 1012 : 


———————- 
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v04-000 14-Sep-19 4 $3342:39 COPY.SRCICOPYSPECS.B32;1 . (3). 
>; 481 1013 ! Now test the type of eye name string that we have. Does it contain wildcards? Were 
; 48 1014 ! certain fields explicitly named? 
: tka ioe § 
> 485 1019 IF_.input_nam Cnam$v_wildcard] ! If there were any wildcards, 
> 486 1018 THEN 
: 487 1019 BEGIN 
; 488 1020 wildcard active = TRUE; : set WILDCARD_ACTIVE. This says current file 
; 489 1021 : specification contains wildcards. 
; 490 10 ¢ wild_input = TRUE; : Also set WILD_INPUT. This says that the current 
> 491 10 4 ‘ : input List contains wildcard specs somewhere. | 
3 re + ¢ first_wild_infile = TRUE; ! Indicate this is the first wild input file 
3 494 1026 ; ! If no input wildcards in this spec, turn off 
; ree Isr wildcard_active = FALSE; ! the WILDCARD_ACTIVE flag. 
> 497 16> : IF .input_nam Cnam$v_wild_ver] ! If an explicit wildcard version number 
>; 498 1030 THEN : was specified, | 
3; 499 1031 wild_inp_ver = TRUE ! set the WILD_INP_VER flag. 
; eno 1035 ELSE ! Otherwise, 
; 502 1034 3 IF .input_nam Cnam$v_exp_ver] } see if an explicit version number was specified 
;- ee 1035 3 THEN } If it is, set the EXP_INP_VER flag, meaning 
> 504 1036 3 exp_inp_ver = TRUE; : that there is an explicit input version number. 
; 505 1037 2 END; 
; 506 1038 § 
s por 1039 : > 
; 508 1040 2 ! Return with success. 
; 509 1041 2! 
; 510 1042 2 | 
;. 31) 1043 2 RETURN ok; 
3 Si2 1044 1 END; 
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GLOBAL ROUTINE copy$opn_infile (input_fab) = ! Open the current input file 


14 
' Functional description: 


This routine opens the current input file. If the input file | 
specification contains a wildcard field, an RMS S$SEARCH for the 
next wildcard match occurs before the actual file open. 


Any input parameter qualifiers are applied to the file's RMS blocks before 
the open is performed. For now, the only valid qualifier is /READ_CHECK. 


If the OPEN fails, an error is reported to SYSSERROR. When input wildcards are present, 
two types of failure are permitted: | 


RMS$_NMF - no more files match given wildcard 
open failure - allowed when a file matching a wildcard spec cannot be 
opened, as long as that file would have been copied without concatenation. 


PARADES ££ 
WR SO OONAOULS WN —"ODOnNOuw 


Calling sequence: 


WAN ANIA NINIANINPINYPYNININ 2 PS 


— 
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copy$Sopn_infile (input_fab.ra.v) 
Input parameters: | 
input_ fab - the FAB associated with the input file | 
Implicit inputs: 
COPYSCLI_STATUS bits are checked: | 
iread_check_bit - This bit is set if the /READ_CHECK geek rr tee was specified for this file. | 
wildcard_active - This spect teas len contains wildcards. 
Find the next file with a S$SEARCH function call. 


input file NAM block is read to obtain the Length of the resultant name string 
input file XABFHC to check the HSZ for VFC files. 


COPYSSEM_STATUS bits are checked: 


multiple_output - Multiple files are being produced. Thi 
open failure on a wildcard specified f 
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Output parameters: 


wn 


none 
Implicit outputs: 


in_name_desc - the Length field of the input name descriptor is written from the RSL 
field in the NAM block 


The FABSV_RCK bit in the input FAB is set if /READ_CHECK was specified. 
COPYSCLI_STATUS bit settings may be altered: 
wildcard_active - turned off if no more files that match wildcard are found. 
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infile_open - set if the file is opened successfully 
i Routine value: 

OK 

NO_MORE _FILE 
NO vil OPEN 


' 

1 

' 

i] 
input file open 
| 

| NO-FILE~ 
t 

i] 

i] 

1 

' 

i] 


no further wildcard match found 
open failure on wildcard match file 
input file not found 


ww 
sees 


i Side effects: 
The input file is opened. 
If an RMS SEARCH function fails, then an error is reported on SYSSERROR. 


BEGIN 


IND 
input_xaball = } Inout file XABALL block 
input_fab Cfab$l_xab] : BLOCK C, BYTEJ, 
~ ! input_file XABDAT block 
-input_xaball Cxab$l_nxt] : BLOCK C, P 
input_xabfhc = : inoue file XABFHC block 
-input_xabdat Cxab$l_nxt] : BLOCK C, BYTE] 
input_nam ! 


input_xabdat 


= : Inout NAM block address 
-input_fab Cfab$l_nam] : BLOCK C, BYTE); 


LOCAL 
status; ! RMS status code variable 
' 
: If a wildcard specification is active, call RMS to search for the next wildcard match. 


Fag idcord_sct ive ! If an input wildcard field is present, 
IF NOT .first_wild_infile 
THEN 


BEGIN 
status = COPYSFIND_INPUT_FILE( infile_cli_desc ); 


] 
| 
| 
| 
| 
| 

MAP 

input_fab : REF BLOCK C, BYTE); ! input FAB block 
| 

IF .status EQL rms$_naf ! If no more wildcard matches exist, 


BEGIN 
Ttieerd Gitte = FALSE; } turn off the WILDCARD_ACTIVE flag. 
= no_more_files; 3 and return with success status of NO_MORE_FILES 


BEGIN 
copy$inopn_err (. tneus fab); : then call the RMS error action routine. 


LSE; Turn off the wildcard flag so that we don't Loo | 


| 

iF NOT .status ! If RMS returned some other error code, | 
wildcard_active = | 
| 
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v0 1a-8ep= 188s F3itzi39 — Pebpy SBE ESprsercs asses . (a) 
3; 6 § 1159 4 RETURN no_file; ' for the file again. Return to caller with NO_FI | 
; 6 1160 END; ! error code. 
; ° : 1483 * ! End of special wildcara search processing. 
: 6 ¢ 1188 first_wild_infile = FALSE; 
RB: ies 8 3 | 
4 ° 5 1408 If the user specified the input read checking qualifier, turn on the appropriate bit in the FAB. 
; 637 1168 2 | 
; oss 1199 if ualifier_active( read chk_qual, loc_read_chk_qual, neg_read_chk_qual) | 
: rr 130) ms input _fab Cfab$v_rck] = TRUE ! then turn on the FAB read check indicator. 
; 642 1178 input_fab Cfab$v_rck] = FALSE; ! Otherwise, turn it off. | 
> 64 1174 
3: 644 1175 ! 
; 645 1176 ! Open the input file. First, zero the LRL field in the file header XAB. This 
3 646 117 i insures that it will have the appropriate value if the input device is record 
3; 647 1178 ! oriented (i.e. SYSSINPUT). 
; 648 1179 ! 
; 649 1180 
; 650 1181 input_xabfhcC XABSW_LRL J] = 0; 
> 651 p 1182 IF $RAS_OPEN ( ! Open the input file with RMS. | 
3 $36 P 118 FAB = .input_fab, ' Specify the input parameter for the FAB, 
; 65 1184 ERR = copy$inopn_err) ' and an error action routine. 
: 654 1185 THEN ! If the OPEN is successful, | 
3 635 1186 BEGIN 
; 656 1187 infile_open = TRUE; ! indicate that the file is open 
; oo? 1138 in_name_desc (0) = .input_nam Cnam$b_rsl); ; and set the length of the input file name anced 
; 659 1190 ! If record format is VFC and the HSZ is 0, then set the HSZ to 2. | 
; 660 1191 ! If this isn't done, the incompatible attributes check will 
3 $8) 1136 ; incorrectly fail. 
; $68 119% IF .input_fab CFABSB_RFM] EQL FABSC_VFC 
; ees 1 -input_xabfhc CXAB$B_HSZ] EQL 0 
; 666 119 THEN 
3; 667 1198 input_xabfhc CXAB$B_HSZ] = 2; 
; 668 1199 RETURN ok; ' Return to caller with success code. 
3 66° 1300 END ! End of successful OPEN processing 
: 671 13 ELSE | 
3; 67 1 08 BEGIN 
: bh 1308 ! | 
3 675 1206 i If multiple output files are being produced, and this is a file that matches a wildcard spec t¥icat ton, | 
3; 67 1207 ! allow the open to fail. This means that one file that matches the wildcard specification is not copied | 
3; 67 1208 ! to a new output file. 
; 678 1209 : 
3; 679 1210 
3 ost 1211 IF .wildcard_ active AND : 
: o8) ! is 4 (.multipTe_output OR NOT .explicit_concat_qual > | 
: 68 1214 ; RETURN no_wild_open | 
3; 684 1215 ELSE 


RETURN no_file; 
END; 
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SYSSOPEN 


COPYSOPN_INFILE, Save R2,R3,R4,R5,R6 
S+4, R6 


COPYS$SEM STATUS, RS 
(R27, RO 
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COBYSSEM STATUS+2, 3$ 
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OPYSSEM"STATUS+3, 2$ 
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OPYSFIND INPUT_FILE 
TUS, #99018 
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32, COPYSSEM_STATUS+2 
3,°RO 
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; Routine Size: 180 bytes, 
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690 GLOBAL ROUTINE copy$get_outfil (output_fab, output_nam, wot xabfhc) = 
24 ! Obtain the output file specification 
69 'ee 
O88 Functional description: 
O98 This routine obtains the “yes file specification and all 
69 related qualifiers from the Command oe ge Interpreter. Then 
698 the file specification is parsed without any help from related input file name 
+4 blocks. This initial parse determines whether the file specification had null file 
£30 name, type, and version number fields. 
7 If no output file name, type, or version number is given, a fla 
708 is set in COPYSSEM_ STATUS. . . 
ree Calling sequence: 
Ade H copy$get_outfil (output_fab.ra.v, output_nam.ra.v, output_xabfhc.ra.v) 
8 z Input parameters: 
4 output_fab = the FAB to use for this output specification 
4 output_nam - the NAM to use for this output specification 


e 
output_xabfhc = the XABFHC to use for this output specification 


, a 
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714 

ae : Implicit inputs: 

ats : The RLF field of the output NAM block contains the address of the input file NAM block. 
719 & Output parameters: 

730 5 

721 5 none 

sé 5 . 

iS? : Implicit outputs: 

725 5 The fields of the FAB and the NAM block are filled in according 

rsé ; to the CLI call, FAB initialization, and the SPARSE function call. 

68 3 A bit may be set in COPYSSEM_STATUS: 

70 no_output_spec = no output name, type. or version number specified. 
733 6 Routine value: 

Ay, 6 

7 64 OK = success 

ie 65 NO_FILE - the SPARSE function call returned an error code 

i e Side effects: 

38 e3 An error is reported if the SPARSE function returns an error status code and 
740 0 LOPYSOUTOPN_ERR is called. 

741 71 

74 Le; “- 

74 7 

744 74 BEGIN 

745 75 

746 76 MAP 


roe 


1 
| 
| 
} 
| 
} 


name block open 


Zero the expanded string length so that the COPY error routine, copy$outopn_err, can 
decide if an expanded name string was created by RMS. 


ROPORONINNY — tO os 


NOME WN OO ODNOUS WO 


output_nam Cnam$b_esl] = 0; ! Zero the output expanded string length. 


i Temporarily remove the RLF field of the output NAM block so that the 
' output file specification can be tested for null name, type, and 
' version number fields. 
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¥O4~000 Ve-Sep-1986 f2:16:19 — ECOPyisReJeOPTSPrCé ase) oer .§) 
: 747 1277 output_fab : REF BLOCK [, BYTE), ' FAB to use with output file | 
s 76 127 output_nam : REF BLOCK : BYTE). ! NAM to use with output file | 
: 74 1 ig output_xabfhc REF BLOCK L, BYTEI; ! XABFHC to use with Sutput file 
: ; i at LOCAL | 
S. é 128 cli_desc : S$BBLOCKC DSCS$C_S_BLN J, ! Descriptor for qualifier values | 
3 f ? 1 temp_rlf; ! Holds the output RLF field 
: 738 85 | 
; i ! ‘ H Initialize descriptor. Retrieve the output file specification. | 
 ? 1289 CHSFILL( 0, DSCSC_S_BLN, cli_desc ); | 
: 760 1290 cli_desc€ OSC$B_CCASS J = DSCSK_CLASS_D; | 
: iS 1 4 CLISGET_VALUE( SDESCRIPTOR(*OUTFILE'), cli_desc); 
3 764 1294 ! Save the file name in the output name descriptor; in case the name | 
3; 765 1295 ! doesn't parse. The name given on the command Line will be used | 
: 708 ; 38 in the error message returned to the user. | 
: 768 1298 out _name_desc(0] = .cli_desc(DSC$W_LENGTH): | 
3 £6? : 7 CHSMOVE (Tc li_descCDSCSWILENGTHJ, .cLli_descLDSCSA_POINTER], .out_name_desc(1]); 
: er 130) } Get the qualifiers for the output file. | 
: 07 308 COPYSGET_GLOBAL_QUAL (); | 
> 775 1305 2 
: £76 ; Be ; Initialize the output file FAB. 
: 778 1308 3° | 
; P 1509 SFAB_INIT ¢ ! Setup the output file FAB as follows: 
: 780 P 1 FAB = .output fab, : FAB address is the output parameter 
at P| eM s MIL 5. Wie cherie | 
; 78 Pj FNA = .cli_desc CDSCSA_POINTER], | -Bfte name eddress from CL] 
; 784 P 1 FNS = .cli_desc CDSC$W_LENGTH], ; File name size from CLI also 
3; 785 P 1 RTV = : Use the system default retrieval window size 
3; 786 P 1 FOP = <§00,0FP,NAM>, ! sequent is operations only, output file parse, | 
3; 787 P 1 NAM = .output_nam : NAM block address 
: 788 1 XAB = .output_xabfhc); i XABFHC block address | 
; | 
3 1 
3 1 
; 1 
4 1 
: 1 
; 1 
3 1 
; 1 
3 1 
; 1 
; 1 
3 1 
; 1 
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temp_rilf = output a8 Cnam$l_ri fi; ' Save the RLF field because it may be needed Later. | 
output_nam [nam$l_Fif] = 0; ! Set the RLF field to null. 
Parse the output file specification. 

IF NOT SRMS_PARSE ( ! Call the RMS function wg Byte file specificati. 
FAB = .output_fab, ; specifying the output FAB parameter, 
ERR = copyS$outopn_err) ' and an error routine. 

THEN ! If the PARSE is not successful, 
RETURN no_file; 3 then return an error code to the caller. 


Test for an absence of the file name, type, and version number fields 
(or the presence of a network quoted string). 


IF Fay me om nam Cnam$v_wild_name]) AND ! If no output wildcards are present, 


and no quoted string 
and no output name, 
and no output type 
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no output version number, 
(.output_nam Cnam$v_exp_dir and an explicit directory 
-output_nam Cnam$v_exp_dev] OR or device name 
ne -output_nam Cnam$v_nodeJ) or node name is given, 
no_output_spec = TRUE; : then set NO_OUTPUT_SPEC bit. 


If the file name, file type or version fields are ALL either wild or no specified and 
the output file spec does not contain a quoted string, then set the flag which indicates 
that the output file spec was completely wild. 


Ce te ee 


é (out ut_nam Cnam$v_wild_name] OR NOT .output_nam [nam$v_exp_name]) 
(.output_nam Cnam$v_wild_type] OR NOT .output_nam (nam$v_exp_type]) 
(.output_nam Cnam$v_exp_ver] OR NOT .output_nam Cnam$v_wild_ver]) 
NOT .output_nam ([nam$v_quoted] 
no_expl_out_fields = TRUE; 

Reload the RLF field. Another PARSE will be performed Later in the routine 
COPYSOPN_OQUTFIL and may take fields from the input resultant file string. 
output_nam ([nam$l_rif] = .temp_rlf; 


: Return with a success code. 


RETURN ok; ' Return successfully. 
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y04 000 eR tioe hs rie rae oA ft eT er | ef 8 
861 1391 2 
: 862 1392 1 END; 
.PSECT $PLITS,NOWRT,NOEXE,2 
‘ t A U L 3 
45 4C 49 46 54 55 GF 90019 P. AAD ASC \o TFILE\ 
00000007 80018 P.AAC: .LONG 7 F 
00000000" 0001¢ “ADDRESS P.AAD : 
~EXTRN SYSS$PARSE 
.PSECT $CODES,NOWRT,2 
0076 00000 .ENTRY COPYSGET_OUTFIL, Save R2,R3,R4,R5,R6 : 1220 
SE 08 ¢ 9000¢ SUBL Lg é : 
08 00 6E 00 2c 90005 movcS #0, (SP), #0, #8, CLI_DESC + 1289 
03 AE 05 90 tite MOVB #2, CLI_DESC+3 + 1290 
SE DD OO00F PUSHL SP + 1292 
0000" CF 9F 00011 PUSHAB P.AAC F 
000000006 00 02 FB 90019 ALLS #2, CLISGET LUE : 
00006 CF 6E 3¢ 001¢ MOV ZWL Lip DESC, oor nN DESC + 1298 
00006 oF 04 BE 6€ 28 00021 MOVC3 chip ESC ScLI. Dest ra, @OUT_NAME_DESC+4 : 1299 
00006 CF 00 FB 00028 CALLS #0, COPY$GET GCOBAL_QUAL : 1303 
56 04 AC 00 0002D OVL fPUT_FAB, R6 : 1318 
0050 «8F 00 6E 00 2c 90031 MOVCS , (SP). #0, #80, (RO) : 
66 5003 8F BO 00039 MOVW #20483, R6) ; 
04 A6 21000040 BF DO 0003E MOVL  #553668192, 4(R6) ; 
16 Ab 2011 BF BO 00046 MOVW #8209 22(R6) ; 
1F 6 02 90 0004C¢ MOVB #2, 34(R6) F 
24 «Ab 0c AC 00 00050 MOVL §§ OUTPUT_XABFHC, 36(R6) : 
52 08 ac DO 00055 MOVL § OUTPUT"NAM, R2 : 
28 Ab 52 D0 90059 MOVL 2, 40TR6) : 
C Ab 04 AE B60 005 MOVL  CLI_DESC+4, 44(R6) : 
4 Ab 6E 90 00062 MOVE CLI~DESC, $2(R6) ; 
0B A2 94 00066 CLRB =: 11(R) + 1326 
53 10 A2 00 00069 MOVL  16(R2), TEMP_RLF > 1334 
10 A2 04 0006D CLRL 16 (R2) : 1335 
00006 cr 9F 00070 PUSHAB COPYSOUTOPN_ERR : 1343 
DD 0074 PU R : 
000000006 99 g FB 0076 CALLS #2, SYSSPARSE F 
8 f 007D BLBC : 7$ ; 
50 34 «OA 9080 MOV 52(R2), RO : 1352 
30 60 EO 000 BBS a5. (RO), 3$ ; 
4 60 A € 0088 BBS we 90), 2$ > 1353 
0 6 E 4 BRS e. (RO), 2$ : 1354 
1C 60 12 € BBS a4, aos, 28 + 1355 
18 60 0 E 094 BBS #2.” (RO), : 1 6 
14 60 £ 98 BBS #. (RO); 2$ : 135 
11 60 E 99¢ BLBS (RO), 2$ ; 1358 
08 60 6 3 OF BBS a6, (RO), 1% : 1359 
6 OA TSTB. =. (RO) : 1360 
4 19 OOOA Biss _'1$ : 
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Routine Base: S$CODE$ + 0181 


219 bytes, 


; Routine Size: 
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vOe-000 1223601984 $334 719 COPY.SRCICOPYSPECS.B32;1 = (6) 
4 


; 86 1393 1 GLOBAL ROUTINE copy$opn_outfil (output_fab, output_rab, input_fab, out_file_count) = 

: 865 1394 1 ! Opens the current output file 

; && 1395 1 

; 86 1596 1 !44 

; 868 1397 1°! Functional description: 

; 869 1398 1! 

; 870 1399 1! This routine opens the current output file. If it is already open due 

. Ory 1400 1! to input file concatenation, the output file RAB is simply disconnected from 

3 sf be? : the FAB to permit switching from block mode 1/0 to record mode 1/0. 

5 874 1208 1 Many of the fields in the input FAB and XAB blocks are copied into the eorresaeee="s 
; &ro 1404 1! output FAB and XAB blocks. Also, bits and values are set in the output XAB and FAB blocks 
; 578 ithe : } because of output file qualifiers specified on the command. 

: 878 1407 1! If the output file already exists, and is being overwritten, it is Spence 

; 444 1008 : for output. If the output file does not exist, it is allocated and then opened. 

: 881 1410 Calling sequence: 

: saz Vols : copy$Sopn_outfil (output_fab.ra.v, output_rab.ra.v, input_fab.ra.v, out_file_count.wl.r) 
: 885 1414 1 ! Input parameters: 

> 886 1415 1! 

; 887 1416 1! output_fab - the address of the FAB associated with the output file 

; 888 1417 1! output_rab - the address of the RAB to be used with the output file 

3 od 1218 : input_fab - the address of the FAB associated with the input file 

: 4 ogy : ; Implicit inputs: 

: bo 1458 1/ copy$cli_status - the OUTFILE_OPEN bit indicates whether an output file is already open. 
: a esi : - bits indicate the settings of the output file qualifiers 

: B08 1262 ‘ Fields from the input NAM and XAB block are used in the output NAM and XAB blocks. 
; 898 1427 1! Output parameters: 

; 899 1428 1! 

; ss} Hit : out_file_count = a counter that is incremented if a new file is opened. 

: 902 1431 1°! Implicit outputs: 

; 903 O36 1! 

: 904 1433 1! copy$cli_status - OUTFILE_OPEN is set once the file is opened. 

3 bs 1e3e : - EXTEND_OUTFILE is set if the output file is being extended. 

; 907 1436 Fieids are written in the output_fab and its associated NAM and XAB blocks. 

: +4 1438 { ; out_name_desc - a descriptor for the output file. Its length field is written. 

; 911 1440 1! When the output file name is parsed, various bits are set in 

; aig red ' COPYSSEM_STATUS. These include: 

> 914 1248 1 i wild_output - output spec includes explicit wildcards 

3 915 1444 1! wild_out_ver - explicit wildcard version number 

: 916 1445 1! 

3; 917 1668 1 ! Routine value 

; «918 1447 1! : 2 

3; 919 er 7! OK - output file successfully created or readied for more output 

3; Feo 1449 1! NO_FILE - output file could not be opened, created, or readied for output 
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s Vey 1450 1! 
; 4 12) ’ Side effects: 
; ¢ 1438 : The rout ine bil, ig Me called if the output file is open. The value of this call 
3 : returned to the caller. 
; 926 1455 1! The routine SETUP_OUTXAB is called to write most of the output XAB block fields. 
: 927 1456 1! Messages are output if a file was created during an APPEND command, if versions were 
; 3 Veet : slipped under higher existing versions, or if files were replaced or overlaid. 
: 930 1459 1 in- 
3 9s) 1460 1 
; 838 1461 BEGIN 
S33 1268 MAP 
3; 935 1464 output. fab : REF BLOCK C, BYTE), ' FAB to use with output file 
> 936 1465 § output_rab : REF BLOCK C, BYTEJ, ' RAB to use with output file 
: 93S7 1466 input_Ta : REF rath » BYTE), ' FAB of the current input file . 
; 938 1467 2 out_file_count : REF VECTOR; ! pointer to number of output files written 
: 3i6 1669 5 BIND 
Oe Oe Ei amarger Bre PU Td Oy Aenhs bao 
: -output_fa ab$l_nam : . ‘ 
3 ot \ere § output_xabthe . . » CtabSt xed? acoce : “ ut XAB file header characteristics block 
; -output_fa ab$i_xa : , . 
> 945 1474 2 output_xabal = : outeut XAB date block 
> 946 1475 2 -output_xabfhe Crab$l_nxt] : BLOCK L, BYTEJ, 
3; 947 1476 2 output_xabdat = ! out ut XAB date block 
>; 948 1477 2 -output_xaball [xab$l_nxt] : BLOCK C, BYTE ° 
> 949 1478 2 output_xabrdt = ' output XAB date block 
: 950 479 3 veg gutbutaxabdat LxabSt_nxt] : BLOCK E, BYTE. ph oat 
: output_xabpro = ! outpu ate bloc 
: 982 1481 2 eee voutput_xabrdt Cxab$t_nxt] : BLock f, BYTE]: 
: 9 re 2 
> 954 14835 2 LOCAL : : ; 
3s Wao 1484 2 status; ! Status variable for calling semantic routine. 
: 987 1e8e 8 
: 958 1487 i If the output file is already 7 (due to input file concatenation), call a routine, 
; 959 1488 ! SETUP_LEXTEND, to prepare the file to contain more data. 
im ies! 
; 2og 133) 5 IF .outfile_open ! If the output file is already open, 
: 964 1298 RETURN setup_extend ( : call a routine to set the file up 
> 965 1494 -output_rab); : to be extended. 
: 369 1496 3 | 
: 968 1299 i Copy a set of FAB attributes from the input to the output FAB. 
3 BR 
; 971 1300 output. fab fabsb_or z - input fab fabsb_or ; t The fields copied are file organization, 
; output_ fa ab$b_rat] = .input_fa ab$b_rat); : record attributes 
3 378 1306 output fab [fab$Sw_mrs] = "input “tab fabSw_ars); : maximum record size 
3; 974 150 output_fab [fab$l_mrn] = .input_fab [fab$l_arnj; : maximum record number 
3; 975 1288 output_fab [fab$Sb_rfm] = .input_fab [fabSb_rfmj; : record format i 
; 976 1505 output_fab [fab$b_fsz] = .input_fab [fab$b_fszJ; : fixed control area size 
3; 977 1506 output_fab Lfab$b_bks] = .input_fab Lfab$b_bksJ; : bucket size 
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Reparse the output string with a wildcard version number, if this is not 
an APPEND operation and one of the following cases is true: 
= no output fiie mame, type or version number was given 
(e.g. COPY x.x (dird) 


WAAL 


Fas= 


; 978 1307 output_fab Cfab$w_gbc] = .input_fab Cfab$w_gbcJ; global buffer count 
UBS, 

4 381 1310 If the input file has read or write checking options, copy them to the output file. 

; 98 Ht 

; «4984 151 output_fab Cfab$l_fop] = .output_fab Cfab$l_fop] OR ! OR together the current FOP output field 

; 985 1514 Pe tnput.fab CTab$l_fop’ ako TfabSm_rck OR FabSm_wek)); , ; 

; 986 1515 : and the read and write check bits of the 
; 987 1218 ! FOP input field. 

; 988 151 

; 989 1518 ! 

; 990 1519 ! Decide on block or record 1/0. 

Bim 

: 938 12 § ON ate Cfab$b_org] EQL fab$c_seq ! If the input file is a sequential file, 

: 995 1524 output_fab Cfab$v_bro] = TRUE ! then indicate mixed block and record 1/0. 
>; 996 1525 ELSE 

; 997 1526 BEGIN 

; 998 1527 output_fab Cfab$v_bio] = true; ! Otherwise, indicate only block 1/0. 

; 999 1528 output_fab Cfab$v_broJ] = false; ! and turn off block/record 1/0 

; 1000 1529 2. END; 

3; 1001 1530 2 

: 100 1531 ! 

3 1 1336 } Copy input blocksize for tapes. Otherwise let RMS set the output blocksize. 

: 1005 1534 2 

3; 1006 1535 IF .input_fab CSFAB_DEV (sqd)) ! If input device is a tape, 

3; 1007 1336 THEN 

3 «4 1330 me output_fab Cfab$w_bis] = .input_fab Cfab$w_bis] ! then copy the blocksize to the output FAB. 
: 1010 1539 output_fab Cfab$w_bls] = 0; ! Otherwise, let RMS choose blocksize. 

: 1012 ie, 5 

: 1018 1386 _' Test the expanded name string for the output file. Does it contain wildcards? If so, 

; 1014 154 '! is there an explicit wildcard version number? 

3 1015 1544 ! 

3: 1016 1545 - 

3; 1017 1546 IF .output_nam Cnam$v_wildcard] ! If there were any wildcards, 

3: 1018 1547 THEN ‘ : 
3; 1019 1548 wild_output = TRUE; : set flag saying that the file specification 
3 1031 1362 : contained some wildcard fields. 

: 19 § HF 1 if outeut_sen Cram$v_wild_ver) ! If the version number is a wildcard, 

; 1034 12 § : wild_out_ver = TRUE ! output version number, remember it. 

: 1036 1 5 i _tutout_nee Cnam$v_exp_ver] ! Otherwise, see if an explicit version number was s 
: 1098 3 ; exp_out_ver = TRUE; } If so, set the EXP_OUT_VER flag. 

; 19 0 13 9 

3 7 1560 

; + 1 1 

31 1368 
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C 

Vv 

- wild or explicit version numbers were given for the input file, but 
the version field for the output file was not specified 


(e.g. COPY x.x;* a.a) 
= the output spec is wild (e.g. COPY x.x *, or COPY x.x *.*) 


IF NOT .append_command 
29 ANB 


: 138 1868 

; 19 ; 1 + 

; 1038 156 

; 1039 1568 

: 1040 1 4 

1002 137) ( tput 

: -No_output_spec 

; 1028 1 Me be 

; 1044 157 ((.wild_inp_ver OR .exp_inp_ver) 

3 1045 1574 4 AND NOT .output_nam (nam$v_wild_ver] 

3 1peg 1575 3 AND NOT .output_nam ([nam$v_exp_ver]) 

3; 104 1 6 OR 

3 1048 1577 4 (NOT .output_nam aro a ver) 

3; 1049 1578 AND (.output_nam Cnam$v_wild_type] OR NOT .output_nam Cnam$v_exp_type]) 
: 1050 138 AND .output_nam Cnam$v_wild_name])) 

; 1051 1580 EN 

3 1936 1581 BEGIN ! Then provide a default name string 
3; 105 1386 output_fab Cfab$l_dna] = UPLIT (';*'); ! of an explicit output wildcard 
: 1054 158 output_fab Cfab$b_dnsJ] = 2; : version number, 

; 1055 1584 END; 

> 1056 1585 ? 
3; 1057 1586 

: 1938 Ft : Now SPARSE (this may be a reparse) the output file specification. 

3; 1060 1589 IF NOT SRMS_PARSE ( FAB = .output_fab, ERR = copySoutopn_err) 

: 1061 1590 THEN : : 
3 1206 1591 RETURN no_file; ! On failure, return with an error code. 
: 106 1236 

3 1064 159 

; 1065 1594 ‘ : ; 

3; 1066 1595 2 ! No director wildcards allowed to remain at this time 

3 1067 1596 : 

3 1068 1597 BEGIN 

3 1069 1598 BIND 

; 1070 1599 lastchar = output _namCnam$l dir] + .output_nam[nam$b_dir] - 2 : byte; 
; 1071 1600 IF .lastchar EQL ZC**" OR 

3 176 1601 elastchar EQL ZC°.° 

3; 107 1606 THEN 

3: 1074 1603 4 BEGIN 

:; 1075 1604 4 LOCAL 

3; 1076 1605 4 outputstr : vector(2); 

: 1077 1606 4 outputstr{0) = ,output_nam (nam$b_esl]; 

; 1978 16R% 4 outputstr(i) = zoutput nam Cnam$l_esal; 

3 107 P 1608 4 PUT_MESSAGE( MSG$_SYNTAX, 

: 1080 P 1609 4 1, 

: 1081 P 1610 4 outputstr, 

: 108 1611 4 0); 

3; 108 1616 & RETURN no_file; 

3 Ht 161 END; 

3; 1085 1614 END; 

; ioe 1615 

3 HH 1616 ! Sibert 

; H's $ Hb oF : See if the output file fits the criteria given on the command Line. 

71 1619 if NOT (status = copy$check_file_for_match()) 

3; 1091 1620 THEN 
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RETURN .status; 
Call the routine SETUP_OUTXAB to copy output XAB fields from the corresponding input XAB fields. 


setup_outxab ( Write output XAB fields by callin 


' 
-output_fab, ; a routine that selects the necessery fields fro 
-input_ fab); : the input FAB and writes them into the output F 


Call the routine APPLY_OUT_QUAL to write RMS fields according to output parameter qualifiers. 


apply_out_quai ( ! Process output file qualifiers 
-output_fab); 


Call the routine COPYSSEMANTICS to determine the semaniic effects of 
this particular combination of input and output file specifications and qualifiers. 


IF NOT copy$semantics ( ! Decide what semantic behavior is required. 
copy$sem_status, : Pass the status variable copy$sem_status, 
- input_ fab, : the input FAB block address, 
-output_fab) } and the output FAB olock address. 
THEN ! If the input/output spec combination makes no sens 
RETURN no_file; : then return with error status code. 


: Perform special XAB setup if a concatenated file is being created. 


IF (.append_command ! If appending to existing file, 

OR .concat_follows : or concatenatin 
OR NOT .no_expl_out_fields : 
im NOT .input_fab (Sfab_dev (fod) }) ! 


output_xaball Cxab$l_nxt] 


or if explicit Yietd in output spec 
or the input device is not file structured, 


DV PRSFUST AISI EB BB BE BE NWN IIIopnnnpofnofnonsry 
DONA NEW ( O ODNAU EWN SOOO NAUE WN OVDONOULS WN 


-output_xabrdt Cxab$l_nxt] ! Do not provide any date information 


=OODONOUVUESWN “OOOO lwnO0o- 
pA A AED FPS VPIID SLOOP OLEOO EOC E ST 


ee ee a me ec ee me ce me me ee ee cD ee ee ee ce ee ed ee ee od ed ed nd ed ed = = wd od = od 


Pe DA Sl A Se ry A.A AI PI PUDIPINIPINININY 2 St "OOO OOOOCOO 
coon bay sive? t) SSRESSS 
ee me me ee ea ee ec ee ee ce ee ee ed ed a od = 8 od wd =) = 8d = dd 


Bo Be Se Se Se Ss ee Se Se Se Be Se Be Se Ge Se Se Se SH Se Se Ge Se FH SH Ss FF OF Oe Os Se Ss Se Se FF SF Ss Se SF SS Se Se FE SF Se SESH Ss Oe Ge SESH Ge SESE SH Es 


60 ELSE 
1 
§ output_xaball puabst nut = output_xabdat; ! Otherwise, include the output date/time XAB block 
oa7 putout sander xab$l_nxt] = output_xabrdt; : and the revision date/time XAB block; 
665 ; 
66 ' Create (or simply open) the output file. 
5 aE 
; e70 extend_outfile = FALSE; ! Assume that the output file is not being extended. 
67 ! 
: ers : If a file needn't be created, just open an existing file. 
675 2. 
§ ore IF oppeend. connend AND ! If this is an APPEND command and 
8 67 NOT .néw_version_qual : and output file creation was not requested, 
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THEN 

IF NOT (status = SRMS_OPEN ( FAB = .output_fab, ERR = Sout ») 

THEN RETURN “status; rs He. , eanrtencts 

N 

Status = SRMS_CREATE (FAB = .output_fab); ! Else, create (or open if it exists) file 


If the file could not be created as a contiguous file because the disk was too full, 
then try to create it contiguous best try. 


IF .status EQL rms$_ful 
AND .output_xaball Cxab$v_ctg] 
' —— NOT qualifier_active("contig_qual, loc_contig_qual, neg_contig_qual ) 


GIN 
output_xaball pxabsv.cta) = FALSE; : then turn off the Sone tevess indicator, 
output_xaball Cxab$v_cbt] = TRUE; ! turn on the contiguous best try indicator, 
P status = SRMS_CREATE ( ’ and retry the create. 
P FAB = ae fab, ! Specify the address of the FAB block 
ERR = copy outopn_err); 


status if contig-best-try ok, 


4 

3 

4 

4 

4 

4 

4 

4 

4 IF 

4 THEN 

& put_message (msg$_cbt); ! then issue message 

4 ao ; and an error action routine. 

: IF NOT .status ' Else, if error, 
THEN 

| 


copySoutopn_err (.output_fab); ! issue error message 
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Change the RMS return status to ‘‘created’’ if indeed the file was created. 


IF NOT .output_ fab Cfab$Sv_cif] AND ! Since RMS returns RMS$_NORMAL whether or not the 
»status EQC rms$_normal : file was created, for internal reporting, chang. 
the status code to RMS$_CREATED if appropriate. 


status = rms$_created; (l.e., if the file was created.) 


If the file was indeed created, issue a SDISPLAY to obtain information 
! about the newly created file. 


IF NOT .status ! If the open or create failed, 


MINMNMNNIN 2 2 


RETURN no_file; : then return an error status code. 
ay SRMS_DISPLAY (FAB = .output_fab) 
copy$Soutopn_err (.output_fab); 


ee et et et ee et et ee De ee ek et et el ee a ad ad ed dd 
Sz 


con 


If the output file was copied to a 10,20 or RT node and it was forced to a 
stream format file, then (if the /LOG qualifier was specified) warn the user 
of the conversion. 


ee ee ee ee ee ee ee ee 
ee ee ee ee en en ee ee ee ee ee ee 
NNN A AAA AAAAAAAOAAOAOOOOOAO 
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yo4~008 12-88-1382 93:92:34 COPY. SRCICOPYSPECS.832;1 . (6) 
3 3 1735 IF .status EQL $ tm AND . MSG_QUA 
: } 86 i é ; ies u rms$_cre_stm LOG_MSG_QUAL 
3; 1208 17 4 BEGIN 
: 1209 1738 4 out_name_desc (0) = .output_nam Cnam$b_rslJ; ! Store the length of the filespec 
3; 1210 P1739 4 put_message saben treaceners.'s ! Issue the message 
3; 1211 1740 4 out_name_desc); 
; : \¢ 1769 4 owes = rms$_created; ! Change the status as above 
> 1214 174 END; 
; 1215 1744 
3 1 19 1745 outfile_open = TRUE; ! Otherwise, set a flag saying that an output file i 
: Ht 1708 out_name_desc (0) = .output_nam Cnam$b_rslJ; ! and store the length of the file specification. 
: 1219 1748 2! 
3; 1220 1749 !' Clean up the output open procedure by reporting to the user if necessary and 
; He 1720 updating more folds.” ‘ — . . 
71 175 
3 1$6¢ 1788 SELECTONE .status OF ! Select additional processing based on the 
; 1206 1735 SET ! RMS completion code from the OPEN or CREATE. 
: 1538 1737 Crms$_created): ! Output file was created. 
3 1568 1758 BEGIN 
; 1230 1759 out_file_count [0] = ! Update count of files created. 
3 1$33 1760 ; -out_file_count £0] + 1; 
: \Se7 1706 ; a _bppend_command ! If this is an APPEND command, 
: 1588 1764 copy$log_msg ( ' send the following message to the user: 
3 1337 1762 msg$_created); : "“<file-name> created’ because creation is u 
3 1238 1767 IF .output_nam Cnam$v_highver] AND : If a higher version of this file exists, | 
3 \¢73 1768 NOT .quiet_slip ! and warnings about versions are not suppressed, 
5 1241 P 179 : put_message ( ’ send the following message to the user: 
3: 1242 P 1771 nsgs _highver. {5 : “higher version of <file-name> exists’ 
$ 1344 A out_name_desc); : because this may cause version confusion. 
5 1245 1774 END; 
Be oe 
: 15¢6 1777 Crms$ superseded: ! Output file caused deletion of file of same name. 
: 1249 1778 BEG! 
3: 1250 177 out_file_count (0] = ! Update count of files created. 
3 \$2] 1789 -out_file_count [0] + 1; 
: 1588 17 $ copy$log_msg ( , Send the following message to the user: 
3; 1254 17 msg$_replaced); ‘ "“<file-name> replaced’’ because 
; ! 32 i? r : supersession is unusual. 
. om 
: 1259 1788 
; : $9 HA Crms$ normaly: ! Output file existed previously and was opened. 
; 1562 1791 IF .append_command : If this is an APPEND command, 
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TES; End of SELECT expression. 


oO 
uw 


' Return to the caller with a success status code. 
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Return with a success code. 


: 1263 1738 3 THEN 

3 1264 1795 4 BEGIN 

3 } 65 Vee ? extend_outfile = TRUE; ! set a flag saying that the file is being extend 

3 1 e 1038 4 output xedaett Cxab$i_alq] = : Calculate the necessary extension quantity 

: } oS 172 ? copy$calc_alq (); : with a call to COPYSCALC_ALQ. 

Fy -Output_xaba xab$l_alqJ N ; the extension quantity is not null, 
} 4 1795 2 Z ball Cxab$l_alq] NEQ 0 : If th i ity i Lt 

: 1 . 190 ? IF NOT $RMS_EXTEND = on ; then try to extend the file. 

3 = OU u a . 

3 1274 1808 5 ERR = copyboutopn, err? 

3: 1275 1804 4 THEN ! If the extend fails, 

3 : 76 12 ? RETURN no_file; } then return an error status code. 

: 1278 1809 4 END 

3; 1279 1808 4 

: ' this is a command, 
1380 + ? : If this i coPY d 

5 1c 1811 4 copy$log_msg ( ’ send the ae message to the user: 

3 tt 1ol¢ ? msg$_overlay); : "<file-name> being overwritten’ 

3 1588 18146 4 | senene : 

$ ++] isl? 2 mareees a the revision of the output file's attributes. Ward had this 

3 ! commented out. 

3 1288 1817 4 ! weeeee 

3; 1289 1918 4 

3; 1290 181 ; END; 

3 1291 1820 

3 3 4 1821 END; 

3; 129 18 ; 

3: 1294 18 

3 1 1824 

3 1 1825 

3 1 1826 2 

2 1827 

3:1 1828 

31 1829 

3 1 1830 1 


RETURN ok; 
END; 


$ 


-PSECT S$PLITS,NOWRT,NOEXE ,2 
00 00 2A 38 00020 P.AAE: .ASCII \;*\<0><0> 3 


~-EXTRN SYSSCREATE, SYSSDISPLAY 
~-EXTRN SYSSEXTEND 


-PSECT SCODES,NOWRT,2 


OFFC 00000 “ENTRY COPYSOPN QUTFIL, Save R2,R5.R4.R5.R6.R7-RB.~; 1393 
B 90006 CF 9E 00002 MOVAB COPYSCLI_STATUS, R11 : 
A 00006 CF 9 0000 MoV COPYSSEM"STATUS. R10 ; 
5 8 C3 0000¢ SUBL2 4&8, SP ; 
5 06 AC D 0 MOVL  OUTPUT_FAB, R3 > 1471 
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y04 008 12-8 08- 138 93:92:33 COPY. SRCICOPYSPECS.B32;1 
26 12 OFS BNEQ 16$ 
6E B A6& 9A OOOF7 148 MOVZSL 11(R6), OUTPUTSTR 
04 AE C A6 00 000F MOVL  12(R6). OUTPUTSTR+4 
7E p4 1 CLRL =< SP) 
04 AF F 001 US Q.*PUTSTR 
po 1 PUSHL # 
7E 10FC BF 3C 00107 MOVZWL #4348, =(SP) 
00006 CF 1 FB 0010C CALLS #1, COPYS$MSG_NUMBER 
0 DD iW PUSHL RO 
000000006 00 04 FB 0011 CALLS #4, LIBSSTOP 
01C7 31 OO11A 15$: BRW y 
00006 cr 90 FB Q011D 16$: CALLS #0, COPYSCHECK_FILE_FOR_MATCH 
4 D0 001 MOVL RO. STATU 
SE 54 €9 001 BLBC STATUS, 20$ 
3 DD 00128 PUSHL R 
53 DD 91 A PUSHL R 
0000v CF 08 FB 0 12¢ CALLS #2, SETUP_OUTXAB 
DO 00131 PUSHL 
0000v CF 01 FB 00133 CALLS #1, APPLY_OUT_QUAL 
oh BB OOI3A oo 
00006 CF 03 FB 9015¢ CALLS #3, COPYSSEMANTICS 
D6 50 £9 00141 BLBC =—._«rRO 
OE 6B E8 00144 BLBS cOPYSCLI STATUS, 17$ 
09 02. AA 03 £0 00147 BBS #3, COPYSSEM STATUS+2, 17$ 
we a 05 03 AA E9 0014¢ BLBC COPY$SEM STATUS+3, 17% 
06 «AS 046 a9 0000155 178: mov. 4 (R9), 4(R5) 
08 11 0015A BRB 19$ 
04 AS 58 DO 0015c 18$ MOVL 8, 4(RS5) 
04 AB 59 D0 00160 MOVL R9, 4(RB) 
02 AA 80 a BA 00164 19$:  BICB2 #128, COPYSSEM_STATUS+2 
1E E9 00169 BLBC. CcoPY$cLI_STATUS, 
1A 68 04 £0 016¢ S #4, COPYSCLI_STATUS, 21$ 
00006 CF SF 00170 PUSHAB COPYSOUTOPN_ERR 
53 OD 00174 PUSHL R3 
000000006 00 02 FB 00176 CALLS #2, SYSSOPEN 
54 50 09 90170 MOVL RO. STATUS 
03 54 E 0180 BLBC STATUS, 208 
00c9 31 00185 BRW $ 
50 54 DO 00186 208: MOVL STATUS, RO 
04 00189 RET 
53 DD 0018A 21$:  PUSHL R 
000000006 90 gi FB 18¢ CALLS #1, SYSSCREATE 
4 0 DO 001 VE = RO. STA 
00018544 &F 54 D1 00196 CMPL STATUS, #99652 
oo ESI OMNE 
40 18 001A2 BGEQ 238 
5 AB 0 E1 001A4 BBC #3, COPYSCLI_STATUS+2, 22 
6 AB é E1 O01A9 BBC #6, COPYSCLI“STATUS+2. 238 
31 AB 05 £0 OO1AE 22% BBS # COPYSCLITSTATUS+ . 238 
08 A 80 8 §8A 0018 81 (B3 ics, B(R5) 
08 Ad 0 88 001B BISB2 #32, 8(R5) 
00006 CF 9F 001B PUSHAB COPYSOUTOPN_ERR 
3 oD ic PUSHL R 
900000006 00 2 FB OOIC CALLS #2, SYSSCREATE 
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3 8 Og 263: 
44 0 i 
E 021 
0D 0021 
FB 0021 
D1 0021C 278: 
12 90385 
4H 0229 
x F 
pb 0085 
a) +4 A 
DB 0025" 
fe OSep 
Ly eset 28$: 
A 00253 
D1 oS 23 
12 00260 
06 00362 
i ti 
BS 00272 29$: 
‘ 0374 
a a 
ee Bie 
FB 00 
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Heke 
pt 3 3 30$: 
é 3 SE 
es 
01 6 AB 318: 
12 AF 


42:5 Ax-11 8 
Hn $3:4633 te COPY. A+! 
VL 
BLBC Be arase ne 
MOVZWL #4764 -(SP) 
CALLS #1, COPYSMSG_NUMBER 
PUSHL 
CALLS LIBSSIGNAL 
BLBS STATUS, 24$ 
PUSHL 
CALLS opysour pn _ERR 
BBS 38 
CMPL i 1 fer 3345 
BNEQ 5 
MOVL #67097, STATUS 
BLBS STATUS. 6$ 
BRW 5$ 
PUSHL R3 
CALLS fi,  $YSSDISPLAY 
BLBS 
PUSHL 
CALLS COPYSOUTOPN_ERR 
CMPL srATos, #98409 ~ 
Bor s COPYSCLI STATUS, 28% 
MOVZBL Shes T_NAME_DESC 
PUSHAB OUT NAME DESC 
SHL #1 
MOVZWL #4859 
CALLS oC OPYSASG _NUMBER 
PUSHL no" 
CALLS L 18SS1GNAL 
VL 7670 § 
BISB2 #2 CObYSsEn STATuse2 
MOVZBL 3(R6) 
CMPL san. 967097 
BNEO 0$ 
INCL @OUT COUNT 
BLBC eourgrite STATUS, 29S 
MOVZWL #42 -TSP) 
CALLS tbpYsine _MSG 
TSTW tr?) 
BGEQ 34$ 
BLBS  § COPYSSEM_STATUS+#2, 34$ 
PUSHAB OUT NAME ~DESC 
PUSHL @# 
MOVZWL Hah2h 
CALLS : COprsase _NUMBER 
PUSHL 
CALLS LIBSSIGNAL 
CMPL TATUS, #67121 
BNEO 315 
INCL T FILE COUNT 
MOV ZL rh 83, -(SP) 
CMPL STATUS, #65537 
EQ 4$ 
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ROUTINE setup_extend (output_rab) = ! Setup a file to be extended. 


'e¢ 
Functional description: 


wn 


“ 


This routine takes an open file and prepares it to be extended. 


First, a DISCONNECT is performed. This permits yt mea from block mode 1/0 

to record mode 1/0 desired. Then update the output file allocation information, 
set a bit in COPYSCLI_STATUS saying that the file is being extended, calculate 

the file extension quantity, and extend the file. 


Calling sequence: 
setup_extend (output_rab.ra.v) 
Input parameters 
output_rab = the RAB connected to the output FAB 
Implicit inputs 
The FAB and XAB blocks associated with the specified output RAB block. 
Output parameters 


VEWN-OOCONOUS who 


PIPOPIPITOPURD 2 3 a 
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none 
Implicit outputs 
The allocation ‘information in the FAB is updated. 


t 4j 
The EXTEND_OUTFILE bit in COPYSCLI_STATUS is set. 
The ALQ field in the output XAB block is set to an appropriate extension quantity. 


htatot tetetehetatetetet ht 93939 2599 9 039 tetera teneete 
WN O OONO VUE WO OONOVilvt-O0@ 


me ee a ek a ka ak tk ak a a nt ot ot ot 
me a aaa a i i a a a a ae tk a a et a wt a = “a a a ss td 


ROPIPIMONIMONDMOADNONDRYD 0 Wt a a a a a a a a 


864 
865 Routine value 
Peas 
9 86 OK = success 
0 868 NO_FILE - failure 
1 £69 
4 570 Side effects 
: ere If the file cannot be extended, the file is closed. 
§ 74 - 
8 a BEGIN 
9 B79 
50 are MAP 
334 ta output_rab : REF BLOCK C, BYTE); ! output FAB of the open output file 
5 881 D 
354 8 ¢ output_fab = ' associated output FAB block 
55 8 .output_rab Crab$l_fab] : BLOCK {, BYTE], 
2$ 884 output_xabfhc == ! associated output XAB block 
5 8 5 -output, fab Cfab$l_xab) : BLOCK {, BYTE), 3 
58 output_xabal = : second XAB in XAB chain 
359 8 -output_xabfhe Cxab$l_nxt] : BLOCK C, BYTE]; 
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Ybe 12-808- 1382 93:42:49 COPY. SRCICOPYSPECS.832;1 . 3 
1 1 
1! 1 LOCAL 
i } status; ' Holds RMS status values 
1 1 
} } See if the input file fits the criteria given on the command Line. 
1 ! if NOT (status = copy$check_file_for_match()) 
: : RETURN .status; 
1 1 
1 1 : Disconnect the RAB from the FAB. On error, close the file and return | 
: : } with error status code. 
1 P 1 if NOT SRMS_DISCONNECT ( ! Disconnect the output file RAB from its FAB. | 
1 P 1 RAB = —< rab, : Specify the RAB block address 
' : nen ERR = copy$oclose_err) ! and an error routine. 
1379 1907 BEGIN ! If the DISCONNECT fails, 
1 1908 copy$close_outf ( : close the output file, 
1381 1909 output_ fab); 
1 1910 RETURN no_file; : and return with an error code. 
1 1911 END; 
| ae 
1 1914 i euer toners the XAB chain to include only the FHC (file header characteristics) XAB, 
1387 1915 ! call the RMS function SDISPLAY to update the output file allocation information 
1 ae ' as recorded in the XABFHC. 
1390 1918 3 
1 4 Hb 4 4 output_xabfhc Cxab$l_nxt] = 0; ' Leave only the FHC XAB on the XAB chain. 
1398 P 1951 status = SRMS_DISPLAY ( : Call DISPLAY to update the XAB information 
HP P 19 § FAB = output_fab, } about the file's allocation. 
1392 1% ? ERR = copy$outopn_err); ! Specify an error action routine. 
1398 + é output_xabfhe Cxab$l_nxt] = output_xaball; ! Restore the XAB chain. 
1399 19 ‘ 
1400 1928 ' See if the SDISPLAY function succeeded. If not, close the output file and return 
1401 1929 ' an error status code. 
ee BRS 
sabe + § Roy -Status ! If the SDISPLAY function failed, 
1008 1982 BEGIN 
140 1935 copy$close_outf ( : then close the output file, | 
1408 1238 output_fab); 
1409 193 RETURN no_file; : and return an error status code. 
1410 1338 END; 
WARD 
1418 Hb 9} Set the bit in COPYSCLI_STATUS that indicates that the file is to be extended. 
1415 1948 3 . 
1416 1944 extend_outfile = TRUE; ! Set EXTEND_OUTFILE bit. 
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IF SRMS_EXTEND ( If the output file can be extended successfully, | 
FAB = output _fab, 


ERR = copy$outopn_err) 


(specify an error routine) 

THEN p y u | 
RETURN ok 
RETURN no_file; 


then return with success code. 


417 945 
41 94 : 
rt 303 : Calculate the file extension quantity and extend the file with an RMS SEXTEND function call. 
: ace : The routine CopYStarc ace does the calculation. It returns a ‘zero’ in the following cases: 
4 950 i The output file is on a magtape or a nonfile-structured device. 
: 4 The output file is already long enough to hold the size of the file to be appended. 
4 9 : 
2 B28 Output_xaball Cxab$l_alq] = copy$calc_alq (); ! Setup the output file extension quantity in the KA 
328 J joutput_xaball Cxab$l_alq] EQ. 0 ! If the input file is of zero Length, 
328 RETURN ok; : then return with success code. 
960 
961 
se 
96 
964 
96 


w 


Otherwise, return with error code. 
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.EXTRN SYSSDISCONNECT 
007C 00000 SETUP_EXTEND: 
- WORD 


Save R2,R3,R4,R5,R6 : 1831 | 
54 04 AC 00 00002 MOVL § OUTPUT_RAB, R4 ; 1883 
35 3 AG DO 00006 MOVE 60(R4)T RS ee 
38 24 AS DO 0000A MOVL 6(R5), R2 ; 1885 
5 04 A2 00 0000 MOVL  4(R2), R > 1887 | 
00006 CF 00 FB 0001 CALLS #0, COPYSCHECK_FILE_FOR_MATCH > 1895 | 
56 50 00 0001 MOVL RO, STATUS ; 
04 56 £8 OO01A BLBS STATUS, 1$ 3 | 
50 56 D0 0001D MOVL STATUS. RO : 1897 | 
94 00 0 RET ; | 
00006 CF 9F 00021 18: PUSHAB COPYSOCLOSE_ERR > 1905 
54 OD 900 5 PUSHL ; 
000000006 00 03 FB 00027 CALLS #2, $¥SSDISCONNECT 3 | 
1A E9 000¢ BLBC §=—-_-«RO,_ 2S ; 
04 A2 04 CLRL «4 (R2) : 1919. 
00006 cf 9F 000 PUSHAB COPYSOUTOPN_ERR : 1923 | 
5 0D 00038 PUSHL 5 ; 
000000006 00 03 FB OO05A CALLS #2, SYSSDISPLAY ; 
6 D0 00041 MOVL RO. STATUS ; 
06 A2 D0 044 MOVL 3, 4(R2) 1985 | 
09 § £8 00048 BLBS STATUS, 3$ : 1938 
DD O004B 28: PUSHES : 1936 | 
00006 CF 1 FB 0004p CALLS #1, COPYSCLOSE_OUTF ; 
5 11 0005 BRB 5$ ; 1937 | 
0006 CF 80 8F 88 00054 3$: BISB2 #128, COPYSSEM_STATUS+2 > 1944, 
0006 CF 0 FB O05, CALLS #0, EOPYSCALC_ALQ : 1954. 
10 A3 DO 0005F MOVL RO. 16(R3) ; | 
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; Routine Size: 


| 
18-se £4 AX-11 Blis 4.0-74 
VezSeort8RG FSi32:3h | HeaeH RE Ba eee eyes 7365, 
5 BEQL 4S 
; PUSHAB COPYSOUTOPN_ERR 
pe CArCe 93. SYSSEXTEND 
8 a072 ae 
BO 00075 4S: MOLT RO 
04 00078 RET 
D4 00079 S$: —CLRL.—SséRO 
04 00078 RET 
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13 146 1969 1 ROUTINE setup_outxab (output_fab, input_fab) : NOVALUE = 

13 1446 1970 1 ! Setup output XAB fields from input XAB fields 
TS OBA da 

3 see 1378 : ; Functional description: 

3 rer | 1302 : ! This routine copies input XAB fields into corresponding output XAB fields. 
: 1450 1997 ' Calling sequence: 

: 1458 1979 ; setup_outxab (output_fab.ra.v, input_fab.ra.v) 

: 1454 He ; Input parameters: 

; 1456 19 : 1! output_ fab - FAB block associated with the output file 

3 et 13ke : } input_Tab - FAB block associated with the input file 

; 1¢2% 1338 : ! Implicit inputs: 

> 1461 1988 1! output_xaball = XABALL block for output file 

3 Ue 1989 1! output_xabdat = XABDAT block for output file 

3; 146 1990 1! output_xabfhc = XABFHC block for output file 

3 1464 1991 1! output_xabpro = XABPRO block for output file 

3 re #1 1338 : output_xabrdt = XABRDT block for output file 

> 1467 1994 1 input_xaball § = XABALL block for input file 

3 re 1995 1! input_xabdat - XABDAT block for input file 

3; 146 1996 1! input_xabfhc - XABFHC block for input file 

3 1on0 444 : input_xabpro = XABPRO block for input file 

; 147¢ 1999 1 | Output parameters 

3 147 000 1! 

3 1474 001 1! none 

3 1475 One 1! 

: 1078 et : } Implicit outputs 

: 1478 005 1: The relevant fields in the output XABs are written. 

3 1479 006 1! 

: 1480 007 1 ! Routine value 

Ph eg BL eee 

cas 010 1: 

; \eee Bt : Side effects 

: 1486 $8 1 i none 

3 14 014 1! 

: 1289 oe 1 

> 1490 O19 BEGIN 

3 1491 018 

i 1498 019 MAP 

3 149 020 output_ fab : REF BLOCK C, BYTE), ' output file FAB block 
3 1oae 0 input_Tab : REF BLOCK C, BYTE); ! input file FAB block 
i 146 

3 1299 4 output_nam = ! out ut NAM block address 
> 1498 5 -output_fab [fab$l_nam] : BLOCK {, BYTE), 
| 
| 
j 


a a 
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' 
} Write the output allocation XAB. 
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| 
| output _xabfhc ! out ¥ MAB file header characteristics block | 
output. t fab CfabSt _xab] : BLOCK f, BY 
output_xabal ' out aut "AB date block 
-output_ xabthe Cxab$t_nxt) : BLOCK f, BYTE 
output_xabdat : oe ¥ "XAB date block 
voutput.. xaball Cxab$l_nxt) : BLOCK f, B 
output_xabrdt : out Y "AB date block 
-output_ xabdat Cxab$l_nxt) : BLOCK {, B 
output_xabpro : a tout "AB date block | 
soutput.. xabrdt CxabSl nxt] : BLOCK €, BY 
input _xaball : ineye file XABALL block | 
. input_ tab Cfab$t_xab) : BLOCK f, BYT | 
input_xabdat input. ut Viste XABDAT block 
“input xabal | Cxab$l_nxt) : BLOCK {, BYTE] | 
input_ xabfhe "input file XABFHC block 
in put _xabdat Cxab$t_nxt] : BLOCK f, BYTE), 
input_ xabpr ~ ! tnevt file XABPRO block 
- input_ xabthe Cxab$l_nxt) : BLock {, BYTE); 
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4 
5 output_xaball Cxab$b_aop] = 
5 + input_xaball Cxab$b_aop]; ! Write the allocation options, 
5 output_xaball Cxab$b_alnJ] = 
3 vinput_xaball Cxab$b_aln]; ! and the alignment type. 
3 output_xaball Cxab$l_alq] = copy$calc_alq (); ! Calculate and write in the allocation quantity. 
5 output_xaball Cxab$w_ Gea j= 
5 ut_xabfhe Cxab$w_dxq); ! Write the default extension quantity. 
§ 5 output_xaball Cxab$b_ be 4 = ! Write the default bucket size 
06 tinput_fab Cfab$b_bks); : from the input FAB bucket size 
06 ! This insures the file oy erected with 
06 ! correct bucksize. Area 0 not may have 
ber ! the largest bucket size. 
065 output_xaball Cxab$w_vol] = 0; ' Zero the related volume number, 
539 ¥§ output_xaball xabsi loc) = 8: ! the allocation location, 
540 06 output_xaball b_aid] = ! the area id number, 
541 068 output_xaball robgcn rfid) = 5 ! the related file number 
248 095 output_xaball Cxab$w_rfi2] = 0; ‘ the related file sequence number 
a7 4 output_xaball Cxab$Sworfi4) = 0; : and the related file revision number. 
| 
545 O72 IF .input_ fab C$ fab_de Goxinet?? AND ' If this is a network o oretten 
266 o? -output_xaball Ca a ta Ear 0 : and the calculated 
54 74 THEN output_xaball traps ' then get ALQ from ty FHC XAB 
4 -input_xabfhe Cxa ! 
548 075 r doth Cxab$l_hbkI; ‘ 
4 O78 $s | 
33 34 4 : Write the output Date/Time XAB. 
55 086 : 
554 81 output_xabdat Cxab$w_rvn] = ' Increment the revision number 
555 082 tinput_xabdat Cxab$w_rvn ] + 1; 
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Write the output File Header 


output_xabdat 
output_xabdat 
output_xabdat 


output_xabdat 


xab$l_rdt0] = 8: 
xab$l-rdt4] = 0; 
newt cere = 
CxabSl_cdt 


-input_xabdat Cxab$l_cdt4]; 


4. 


13°$ 
14*$ 


nous .xabdet Cxab$l_cdt0J; 
4) = 
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! Clear the revision date 


! Copy the creation date 


and the creation time 


These values are not copied from the input, but defaulted instead, 
so the user will get new backup and expiration dates. 


IF .output_fabC SFAB_DEV(sqd) J 
THEN 


BEGIN 


output_xabdat Cxab$l_edt0] 
cutout sabdet xab$l_edt4] 


BEGIN 


output_xabdat Cxab$l_edt0] 
cuteutnebdet xab$l_edt4] 


output_xabdat 
output_xabdat 


output_xabfhc 
output_xabfhc 
output _xabfhc 
output_xabfhc 
output_xabfhc 
output_xabfhc 
output_xabfhc 


output_xabfhc 


0: 


xab$l_bdt0) # 


xab$l_bdt4) 


Cxab$b_rfo] = 
- input _xabfhc 
Cxab$b_atr] = 
= Aeyt nebthe 
Cxab$w_lrlJ = 
= snoyt nabthe 
Cxab$b_bkz] = 
= inoyt nebthe 
Cxab$b_hsz] = 
= tape xabfhc 
CxabSw_mrz 
xabfhc 


- input 
Cxab$Sw_dxq] 

- input _xabfhc 
Cxab$l_sbn] = 0; 


- input_xabdat 
- input _xabdat 


0; 
0; 


Cxab$b_rfol; 
Cxab$b_atr); 
Cxab$w_lrlj; 
Cxab$b_bk2]; 
Cxab$b_hsz]; 
Cxab$w_mrz); 
Cxab$w_dxq]; 


If the output device is tape, then propogate the expiration date. 
Otherwise, clear it. 


xab$l_edt0]; 
xab$l_edt4]; 


Characteristics XAB block. 


the backup date 
and the backup time 


The XABFHC includes the 


record format and file organization, 
the record attributes, 


the Length of the longest record, 
the bucket size, 

the VFC header size, 

the maximum record Length, 

and the default extension quantity. 


Zero the starting virtual block number. 


Write the output Protection XAB block. Most of this XAB can only be setup 
after the output file has been opened or created. Therefore, it is not done here. 


output_xabpro Cxab$l_uic] = 0; 


Clear the file owner field. 
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ROUTINE apply_out_qual (output_fab) : NOVALUE = ! Applies output parameter qualifiers to FAB and XAB. 


Functional description 


This routine looks for the presence of qualifiers on the output file specification, 
and sets RMS fields according to the semantics of each qualifier. 


! Calling sequence: 

apply_out_qual (output_fab.ra.v) 
Input parameters: 

output_fab = the FAB block related to the output file specification 
Implicit inputs: 

Output_xaball = The XABALL block associated with the output FAB 

The following bits in COPYSCLI_STATUS: 


alignment_bit 
allocation_bit 
contiguous bit 
extension _Bit 
file _max_bit 
overlay Bit 
oread_check_bit 
replace_bit 
truncate_bit 
write _check_bit 
volume_bit 


Some values associated with qualifiers specified for the output file speci‘ication: 


align_type 
align_option 
align_location 
alloc_value 
extension_value 
file_max_value 
volume_value 


Output parameters 


Implicit outputs 
Some fields in the output XABALL block are written: 


ALN - alignment type 

AOP - alignment option 
LOC - alignment location 
ALQ - allocation quent sty 
C1G = contiguous file 
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CBT = contiguous best try file 
DEQ - file extension quantity 
VOL - relative volume number 
Some fields in the output FAB are written: 
MRN - maximum record number 
CIF - create if nonexistent file 
RCK - read check 
TEF - truncate files at EOF mark 
SUP - supersede 
- write check 


Routine value 
novalue 
Side effects 


< 
oO 
x 


none 
BEGIN 
P 

output_fab : REF BLOCK C, BYTE); ! Output file FAB block 

D 

output_nam = ! output NAM block address 
-output_fab Cfab$l_nam] : BLOCK C, . hits 

output_xabfhc = ! output XAB file header characteristics block 
soutput. feb Cfab$l_xab] : BLOCK C, “ 

output_xabal = ! output XAB date block 
-output_xabfhc Cxab$l_nxt] : BLOCK C, . 

output_xabdat = : outeus XAB date block 
-output_xaball Cxab$l_nxt] : BLOCK C, BYTE), 

output_xabrdt = ! output XAB date block 
-output_xabdat Cxab$l_nxt] : BLOCK C, BYTEI, 

Output_xabpro = : outeut XAB date block 
-output_xabrdt Cxab$l_nxt] : BLOCK C, BYTE]; 


Apply the effects of the output file qualifiers to the appropriate XAB blocks. 
/ALLOCATION = n 
of _guel tt tor sctinet alloc_qual, loc_alloc_qual, neg_alloc_qual ) 
output_xaball Cxab$l_alq]) = .curr_allocation_value; 
geek eo tar pct tons contig_qual, loc_contig_qual, neg_contig_qual ) 


BEGIN 
output_xaball xabsvctad = TRUE; 
output_xaball Cxab$v_cbt] = FALSE; 


ee ———— 


2 
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END 
ELSE 
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Hpg ttt e_opeted OR .neg_contig_qual 


BEGIN 
output_xaball Cxab$v_ct } = FAL 


Saws 
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wo 


output_xaball Cxab$Sw_deq] = .curr_extension_value; 


OWBNOUES WIN —OOW 


PUPP PSPAIUIVAIVII E & 


iA ualifier_active( file_max qual, loc _file_max_qual, neg_file_max_qual ) 


SSS 


4 | 

3 1 4 

3 1 & ALSE; 

3 1 output_xaball [xab$Sv_cbtJ = FALSE; 

3 7 END; 

3 ; END; 

; | i IF qualifier actives extend_qual, loc_extend_qual, neg_extend_qual ) 

: 1 2 

3 1 3 

2 5 

; : ef : output _fab Cfab$l_mrn) = .curr_file_max_value; 

:1 o¢ 88 IF qualifier_active( overlay_qual, loc_overlay_quai, neg_overlay_qual ) OR 
; 176 44 -New_version_qual 

3 1764 N 

3 1703 4 output_fab CfabSv_cif] = TRUE; 

: Hat $3 iv ualifier_active( replace_qual, loc_replace_quai, neg_replace_qual ) 

; 1769 95 output_fab Cfab$v_sup] = TRUE; 

: 44 37 4 quel ifter_sctivet truncate _qual, loc_truncate_qual, neg_truncate_qual ) 
; 1778 $3 output_fab Cfab$v_tef] = TRUE; 

: 1775 01 IF quel (fier sctivet volume qual, loc_volume_qual, neg_volume_qual ) 

3 if o¢ THE 

3; 177 0 

: 1778 304 output_xaball Cxab$w_vol]) = .curr_volume_value; 

3 1779 05 output_xaball Cxab$b_aln] = xab$c_\lbn; 

3; 1780 BS output_xaball Cxab$v_hrdj = 1; 

ie 5 x 

; 1788 4 it quel ifter_ectiver write _chk_qual, loc_write_chk_qual, neg_write_chk_qual ) 
: 1785 11 output_fab (fab$v_wek] = TRUE 

iy 1B Ee 

; 1788 314 IF .write_chk_negated 

3; 1789 15 THE 

; 17 16 output_fab CfabSv_wck] = FALSE; 

3: 1791 1 ND; 

3 16 18 

3: 179 19 : 

3 1794 0 !' Return to caller. 

3; 1795 1 ! 

: 1798 ¢ é 

; 179 END; ! Return without a value. 
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$ 
$$ 
CURR AL 16 

‘ STATUS+2, 4$ 
STATUS#2, Sg 
STATUS+2, 6$ 


STATUS+2, 7$ 
STATUS+2, 9$ 
#128, 8(RO) 

#32, B(R 

SROVSCLE STATUS +R 


#1, COPYSCLI_STATUS+3, 11$ 
COPY$SCLI_STATUS+3, 12$ 
CURR E 

#2, COPYSCLI_STA 
#4, COPYSCLI-~STATUS+3, 
#3. COPYSCLI~STATUS+3 
CURR FILE MAR VALUE, 56 
COPYSCLI_STATOS+4 


#1, COPYSCLI_STATUS+5, 17$ 
COPY$CLI_STATUS+5, 17$ 
#4, COPYSCLI_STATUS, 18$ 


LI_STATUS+6, 19$ 
LISTATUS*#6. 20$ 
LITSTATUS*#6. 21$ 
L 
T 
T 


5. g 1_STATUS+5, 22% 
COPYS$CL ATUS*6, 23$ 
OPYSCLI~STATUS+ 


7(R 
OPYSCLI_STATUS+5, 25$ 
OPYSCLI“STATUS+5, 26$ 
OPYSCLISTATUS+5. 278 
VOLUME VALUE, 10(RO) 

ATUS+4, BE 


ST 
STATUS+4, 29% 
STATUS*4, 50% 
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copvspecs deme GATE ULAR 


04 63 E6 308: #4, COPYSCLI_STATUS+4, 31$ 
05 Al $3 bh H Be BicB2 #2, SRT) e 
Ee 31$: RET 


; Routine Size: 239 bytes, Routine Base: S$CODES + 065D 


Sel 


Er 


cca 


3; 1799 
; 1800 


3355 0 Eltoon 


; Size: 1868 code + 36 data bytes 
Run Time 351. 
Sleseed Time: 02:08.1 
Lines/CPU Min: 7 
Lexemes/CPU-Min: 28632 
Used: 286 aa 
; Compilation Complete 
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-EXTRN LIBSSIGNAL, LIBSSTOP 


; PSECT SUMMARY 
; Name Bytes Attributes 

; SPLITS 36 NOVEC,NOWRT, RD .NOEXE,NOSHR, LCL, REL. CON.NOPIC,ALIGN(2) 

; SCODES 1868 NOVEC;NOWRT, RD. EXE.NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 

; Library Statistics 

; sopsemas SyGbGl§ Steencus Pages Processing 

: File Tocal Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 179 1 581 00:01.0 

; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:COPYSPECS/OBJ=OBJ$:COPYSPECS MSRC$:COPYSPECS/UPDATE=(ENHS: COPYSPECS) 
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